program exemplo6pg90(input,output);
var m:integer;

function f(n:real;var k:integer):integer;
 var p,q:integer;
 procedure proc(x,y:integer);
    var r:integer;
    begin
       r:=10;
       if x>2+y
       then m:=r+x
       else m:=r+y
    end; 

 begin
   if n<2
   then begin 
          f:=n;
          k:=0
        end
   else begin
          f:=f(n-1,p)+f(n-2,q);
          k:=p+q+1
        end;
   write(n,k)
 end;

function g(var j:integer):integer;
 var s,t,u:integer;
   begin
       s:=10;
       while s<j+10
       do s:=s+1;
       f:=s        
    end;


begin
  write(f(3,m),m)
end.


           
